1 ggiraph

interactive ggplot graphs in R with ggiraph
https://www.infoworld.com/article/3626911/easy-interactive-ggplot-graphs-in-r-with-ggiraph.html

“Use a ggiraph interactive geom instead of a “regular” ggplot geom.
The format is easy to remember: Just add _interactive to your usual geom.
So, geom_col() for a regular bar chart would be geom_col_interactive(), geom_point() would be geom_point_interactive(), and so on.
Add at least one interactive argument to the graph’s aes() mapping: tooltip, data_id, or onclick.
That data_id argument is what connects two graphics, letting you hover over one and affect the display of another one — all without Shiny."

“After creating your ggiraph dataviz object, use the girafe() function to turn it into a JavaScript graphic.
Yes, that’s girafe() like the animal but with one f - the creator of ggiraph, David Gohel, lives in Paris.”

2 Install packages

3 Load libraries

library(dplyr)
library(ggplot2)
library(ggiraph)
library(patchwork)
library(lubridate)

library(scales) # For the percent_format() function in ggplot axis

# for Canada map
library(sf) # for st_read

5 Get 2021 Canada census population data for provinces

data_url_can_pop <- "1710000901-eng-Canada-Census-2021-pop.csv"

5.1 Read csv Canada COVID data

all_data_can <- read.csv(data_url_can)

5.2 Read csv Canada population data

need to remove meta data … first 9 rows

pop_data_can <- read.csv(data_url_can_pop, skip = 10, header = F)

5.3 rename column names

names(pop_data_can)[1] <- "Province"
names(pop_data_can)[2] <- "Population"

5.4 Convert population data.frame to all capitals to match all_data_can

pop_data_can$Province = toupper(pop_data_can$Province)
pop_data_can$Province
##  [1] "CANADA"                                                                              
##  [2] "NEWFOUNDLAND AND LABRADOR"                                                           
##  [3] "PRINCE EDWARD ISLAND"                                                                
##  [4] "NOVA SCOTIA"                                                                         
##  [5] "NEW BRUNSWICK"                                                                       
##  [6] "QUEBEC"                                                                              
##  [7] "ONTARIO"                                                                             
##  [8] "MANITOBA"                                                                            
##  [9] "SASKATCHEWAN"                                                                        
## [10] "ALBERTA"                                                                             
## [11] "BRITISH COLUMBIA"                                                                    
## [12] "YUKON"                                                                               
## [13] "NORTHWEST TERRITORIES 5"                                                             
## [14] "NUNAVUT 5"                                                                           
## [15] "FOOTNOTES:"                                                                          
## [16] "1"                                                                                   
## [17] "2"                                                                                   
## [18] "3"                                                                                   
## [19] "4"                                                                                   
## [20] "5"                                                                                   
## [21] "HOW TO CITE: STATISTICS CANADA. TABLE 17-10-0009-01  POPULATION ESTIMATES, QUARTERLY"
## [22] "HTTPS://WWW150.STATCAN.GC.CA/T1/TBL1/EN/TV.ACTION?PID=1710000901"

5.5 rename row values

pop_data_can$Province[pop_data_can$Province=="NUNAVUT 5"] <- "NUNAVUT"
#pop_data_can$Province[pop_data_can$Province=="NEWFOUNDLAND AND LABRADOR"] <- "NL"
pop_data_can$Province[pop_data_can$Province=="PRINCE EDWARD ISLAND"] <- "PEI"
pop_data_can$Province[pop_data_can$Province=="NORTHWEST TERRITORIES 5"] <- "NWT"
# pop_data_can$Province[pop_data_can$Province=="BRITISH COLUMBIA"] <- "BC"

5.6 remove last 8 rows of meta data

pop_data_can <- pop_data_can[-c(15:22), ]
pop_data_can$Province
##  [1] "CANADA"                    "NEWFOUNDLAND AND LABRADOR"
##  [3] "PEI"                       "NOVA SCOTIA"              
##  [5] "NEW BRUNSWICK"             "QUEBEC"                   
##  [7] "ONTARIO"                   "MANITOBA"                 
##  [9] "SASKATCHEWAN"              "ALBERTA"                  
## [11] "BRITISH COLUMBIA"          "YUKON"                    
## [13] "NWT"                       "NUNAVUT"

5.7 data info

head(all_data_can)
##   OBJECTID     Province Abbreviation DailyTotals            SummaryDate
## 1        1      ALBERTA           AB           0 2020/01/25 12:00:00+00
## 2        2          NWT           NT           0 2020/01/25 12:00:00+00
## 3        3        YUKON           YT           0 2020/01/25 12:00:00+00
## 4        4 SASKATCHEWAN           SK           0 2020/01/25 12:00:00+00
## 5        5          PEI           PE           0 2020/01/25 12:00:00+00
## 6        6      ONTARIO           ON           1 2020/01/25 12:00:00+00
##   TotalCases TotalRecovered DailyRecovered TotalDeaths DailyDeaths TotalTested
## 1          0              0              0           0           0           0
## 2          0              0              0           0           0           0
## 3          0              0              0           0           0           0
## 4          0              0              0           0           0           0
## 5          0              0              0           0           0           0
## 6          1              0              0           0           0           0
##   DailyTested TotalActive DailyActive TotalHospitalized DailyHospitalized
## 1           0           0           0                NA                NA
## 2           0           0           0                NA                NA
## 3           0           0           0                NA                NA
## 4           0           0           0                NA                NA
## 5           0           0           0                NA                NA
## 6           0           1           1                NA                NA
##   TotalICU DailyICU TotalVaccinated DailyVaccinated TotalDose1 DailyDose1
## 1       NA       NA              NA              NA         NA         NA
## 2       NA       NA              NA              NA         NA         NA
## 3       NA       NA              NA              NA         NA         NA
## 4       NA       NA              NA              NA         NA         NA
## 5       NA       NA              NA              NA         NA         NA
## 6       NA       NA              NA              NA         NA         NA
##   TotalDose2 DailyDose2 TotalBooster DailyBooster
## 1         NA         NA           NA           NA
## 2         NA         NA           NA           NA
## 3         NA         NA           NA           NA
## 4         NA         NA           NA           NA
## 5         NA         NA           NA           NA
## 6         NA         NA           NA           NA
str(all_data_can)
## 'data.frame':    11685 obs. of  26 variables:
##  $ OBJECTID         : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Province         : chr  "ALBERTA" "NWT" "YUKON" "SASKATCHEWAN" ...
##  $ Abbreviation     : chr  "AB" "NT" "YT" "SK" ...
##  $ DailyTotals      : int  0 0 0 0 0 1 0 0 0 0 ...
##  $ SummaryDate      : chr  "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" ...
##  $ TotalCases       : int  0 0 0 0 0 1 0 0 0 0 ...
##  $ TotalRecovered   : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ DailyRecovered   : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ TotalDeaths      : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ DailyDeaths      : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ TotalTested      : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ DailyTested      : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ TotalActive      : int  0 0 0 0 0 1 0 0 0 0 ...
##  $ DailyActive      : int  0 0 0 0 0 1 0 0 0 0 ...
##  $ TotalHospitalized: int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyHospitalized: int  NA NA NA NA NA NA NA NA NA NA ...
##  $ TotalICU         : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyICU         : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ TotalVaccinated  : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyVaccinated  : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ TotalDose1       : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyDose1       : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ TotalDose2       : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyDose2       : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ TotalBooster     : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ DailyBooster     : int  NA NA NA NA NA NA NA NA NA NA ...
class(pop_data_can)
## [1] "data.frame"
head(pop_data_can)
##                    Province Population
## 1                    CANADA 38,436,447
## 2 NEWFOUNDLAND AND LABRADOR    521,758
## 3                       PEI    165,936
## 4               NOVA SCOTIA    998,832
## 5             NEW BRUNSWICK    794,300
## 6                    QUEBEC  8,631,147
str(pop_data_can)
## 'data.frame':    14 obs. of  2 variables:
##  $ Province  : chr  "CANADA" "NEWFOUNDLAND AND LABRADOR" "PEI" "NOVA SCOTIA" ...
##  $ Population: chr  "38,436,447" "521,758" "165,936" "998,832" ...
glimpse(pop_data_can)
## Rows: 14
## Columns: 2
## $ Province   <chr> "CANADA", "NEWFOUNDLAND AND LABRADOR", "PEI", "NOVA SCOTIA"…
## $ Population <chr> "38,436,447", "521,758", "165,936", "998,832", "794,300", "…

5.8 find unique-values

unique(all_data_can[c("Province")])
##                       Province
## 1                      ALBERTA
## 2                          NWT
## 3                        YUKON
## 4                 SASKATCHEWAN
## 5                          PEI
## 6                      ONTARIO
## 7                NEW BRUNSWICK
## 8                  REPATRIATED
## 9                  NOVA SCOTIA
## 10                          NL
## 11                    MANITOBA
## 12                          BC
## 13                     NUNAVUT
## 14                      QUEBEC
## 1053      PRINCE EDWARD ISLAND
## 1054 NEWFOUNDLAND AND LABRADOR
## 1056          BRITISH COLUMBIA
## 1063     NORTHWEST TERRITORIES
## 1064           REPATRIATED CDN
## 1135                    CANADA

5.8.1 vector of not provinces to filter out

not_provinces <- c("CANADA", "REPATRIATED", "REPATRIATED CDN")

6 Create new date column for date

class(all_data_can$SummaryDate) # character
## [1] "character"
# create new column
all_data_can$Date <- ""

# move position of Date column
# moved date column to first column
# https://stackoverflow.com/questions/3369959/moving-columns-within-a-data-frame-without-retyping
data.table::setcolorder(all_data_can, "Date")
# move Date column to 7th position
data.table::setcolorder(all_data_can, 2:6)

6.1 convert date

all_data_can$Date <- as.Date(all_data_can$SummaryDate)
class(all_data_can$Date) # date
## [1] "Date"

6.1.1 filter out non-provinces tot vac

bar_graph_data_recent_can <- all_data_can %>%  
  filter(Date == max(Date), !(Province %in% not_provinces)) %>%  
  select(Province, TotalVaccinated)

7 TV - Create bar graph total vaccination

bar_graph_totvac <- ggplot(bar_graph_data_recent_can, 
                aes(x = reorder(Province, TotalVaccinated), 
                    y = TotalVaccinated)) +
  geom_col(color = "black", fill="#6a8de1", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 10)) +
  labs(title = "Fully Vaccinated March  23, 2022",
       subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
       ) +
   ylab("Total Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = comma_format()) +
  coord_flip()

7.1 TV-View bar_graph totvac

bar_graph_totvac

7.2 TV-Create a tooltip column in R

to create comma-separated integers used scales::comma(columnname, 1)

bar_graph_data_recent_can <- bar_graph_data_recent_can %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", 
                   scales::comma(TotalVaccinated, 1), " (#)")
  )

7.3 Make the bar chart interactive with ggiraph totvac

latest_vax_graph <- ggplot(bar_graph_data_recent_can, 
                aes(x = reorder(Province, TotalVaccinated), 
                    y = TotalVaccinated,
                    tooltip = tooltip_text, data_id = Province #<<
                    )) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +  #<<
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +  #<<
  labs(title = "Fully Vaccinated March 23, 2022",
       subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
       ) +
   ylab("Total Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = comma_format()) +  
  coord_flip()

girafe(ggobj = latest_vax_graph, width_svg = 5, height_svg = 4)

8 Merge 2 data.frames for pop

all_data_can_pop <- merge(all_data_can, pop_data_can, by="Province")

# move population column to beginning
data.table::setcolorder(all_data_can_pop, "Population")
# create new column for PercentVaccinated
all_data_can_pop$PercentVaccinated <- ""

# move PercentVaccinated column to beginning
data.table::setcolorder(all_data_can_pop, "PercentVaccinated")

# move PercentVaccinated column to 23th position
data.table::setcolorder(all_data_can_pop, 2:22)

8.1 calculate Percent Vaccinated

class(all_data_can_pop$PercentVaccinated)   # character >> numeric
## [1] "character"
class(all_data_can_pop$TotalVaccinated) # integer > numeric >>>> total vaccinated is adding up dose 1 + dose 2 + 
## [1] "integer"
class(all_data_can_pop$Population)  # character
## [1] "character"
# Change character to numeric >> worked
all_data_can_pop$PercentVaccinated <- as.numeric(all_data_can_pop$PercentVaccinated)
all_data_can_pop$TotalVaccinated <- as.numeric(all_data_can_pop$TotalVaccinated)


# N/A introduced by coercion???? trying to convert Population from character to numeric with NAs
# all_data_can_pop$Population1 <- as.numeric(all_data_can_pop$Population)

class(all_data_can_pop$Population)   # character >> factor >> numeric
## [1] "character"
# Population column has commas, which wouldn't let the characters be converted to numeric,
# after removing commas, it converts properly
all_data_can_pop$Population <- as.numeric(gsub(",", "", all_data_can_pop$Population))

9 calculate percentage >>> total vaccinated is actual dose 1 + dose 2 >>> % of pop is > 1

all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinated = TotalVaccinated / Population)

all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedDose1 = TotalDose1 / Population)
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedDose2 = TotalDose2 / Population)
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedBooster = TotalBooster / Population)
# move position of percentage columns
# moved date column to first column
# https://stackoverflow.com/questions/3369959/moving-columns-within-a-data-frame-without-retyping
data.table::setcolorder(all_data_can_pop, "PercentVaccinatedDose1")
# move Date column to 7th position
data.table::setcolorder(all_data_can_pop, 2:25)

data.table::setcolorder(all_data_can_pop, "PercentVaccinatedDose2")
data.table::setcolorder(all_data_can_pop, 2:28)

data.table::setcolorder(all_data_can_pop, "PercentVaccinatedBooster")
data.table::setcolorder(all_data_can_pop, 2:32)

10 type of variables

str(all_data_can_pop)
## 'data.frame':    9348 obs. of  32 variables:
##  $ Population              : num  4464170 4464170 4464170 4464170 4464170 ...
##  $ Province                : chr  "ALBERTA" "ALBERTA" "ALBERTA" "ALBERTA" ...
##  $ OBJECTID                : int  11928 8480 1865 1730 4280 2090 387 445 432 3170 ...
##  $ Abbreviation            : chr  "AB" "AB" "AB" "AB" ...
##  $ DailyTotals             : int  0 60 19 45 406 15 0 0 0 0 ...
##  $ SummaryDate             : chr  "2022/01/29 12:00:00+00" "2021/06/21 12:00:00+00" "2020/05/20 12:00:00+00" "2020/05/12 12:00:00+00" ...
##  $ Date                    : Date, format: "2022-01-29" "2021-06-21" ...
##  $ TotalCases              : int  487436 231419 6735 6345 23402 7091 0 0 0 11430 ...
##  $ TotalRecovered          : int  442605 227124 5637 4866 19734 6611 0 0 0 10097 ...
##  $ DailyRecovered          : int  0 182 -217 207 234 24 0 0 0 0 ...
##  $ TotalDeaths             : int  3531 2292 128 118 296 146 0 0 0 208 ...
##  $ DailyDeaths             : int  0 2 0 1 3 1 0 0 0 0 ...
##  $ TotalTested             : int  6728210 4643107 221571 191330 1668277 275524 0 0 0 743885 ...
##  $ DailyTested             : int  0 2841 2607 3173 14916 4226 0 0 0 0 ...
##  $ TotalActive             : int  41300 2003 970 1361 3372 334 0 0 0 1125 ...
##  $ DailyActive             : int  0 -124 236 -163 169 -10 0 0 0 0 ...
##  $ TotalHospitalized       : int  1496 214 58 73 113 48 NA NA NA 68 ...
##  $ DailyHospitalized       : int  0 0 -3 0 -3 0 NA NA NA 0 ...
##  $ TotalICU                : int  105 56 7 12 16 6 NA NA NA 18 ...
##  $ DailyICU                : int  0 3 -1 0 0 0 NA NA NA 0 ...
##  $ TotalVaccinated         : num  8255417 3804700 NA NA NA ...
##  $ PercentVaccinated       : num  1.849 0.852 NA NA NA ...
##  $ DailyVaccinated         : int  0 29026 NA NA NA NA NA NA NA NA ...
##  $ TotalDose1              : int  3548760 2691359 NA NA NA NA NA NA NA NA ...
##  $ PercentVaccinatedDose1  : num  0.795 0.603 NA NA NA ...
##  $ DailyDose1              : int  0 3454 NA NA NA NA NA NA NA NA ...
##  $ TotalDose2              : int  3275269 1113341 NA NA NA NA NA NA NA NA ...
##  $ PercentVaccinatedDose2  : num  0.734 0.249 NA NA NA ...
##  $ DailyDose2              : int  0 25572 NA NA NA NA NA NA NA NA ...
##  $ TotalBooster            : int  1431208 NA NA NA NA NA NA NA NA NA ...
##  $ DailyBooster            : int  0 NA NA NA NA NA NA NA NA NA ...
##  $ PercentVaccinatedBooster: num  0.321 NA NA NA NA ...

10.1 make new columns for percentage format, not decimal

# create new column for PercentVaccinated
all_data_can_pop$PercentVaccinatedDose1_percent <- ""
all_data_can_pop$PercentVaccinatedDose2_percent <- ""
all_data_can_pop$PercentVaccinatedBooster_percent <- ""

10.2 make % percent vacinated columns a percentage not decimal

all_data_can_pop$PercentVaccinatedDose1_percent <- percent(all_data_can_pop$PercentVaccinatedDose1, accuracy = .01)
all_data_can_pop$PercentVaccinatedDose2_percent <- percent(all_data_can_pop$PercentVaccinatedDose2, accuracy = .01)
all_data_can_pop$PercentVaccinatedBooster_percent <- percent(all_data_can_pop$PercentVaccinatedBooster, accuracy = .01)
# Dose 1 ## filter out non-provinces dose1
r bar_graph_data_recent_can_dose1 <- all_data_can_pop %>% filter(Date == max(Date), !(Province %in% not_provinces)) %>% select(Province, PercentVaccinatedDose1, PercentVaccinatedDose1_percent)
## Create bar graph % Dose 1
r #str(all_data_can_pop) bar_graph_dose1 <- ggplot(bar_graph_data_recent_can_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1)) + geom_col(color = "black", fill="#0072B2", size = 0.5) + theme_minimal() + theme(axis.text=element_text(size = 8)) + labs(title = "Dose1 2022-03-23") + ylab(" Vaccinated") + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + coord_flip()
## View bar_graph-%-dose1
r #bar_graph_dose1
## Create a tooltip column in R dose1
r bar_graph_data_recent_can_dose1 <- bar_graph_data_recent_can_dose1 %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) )
## Make the bar chart interactive with ggiraph dose 1
```r latest_vax_graph_dose1 <- ggplot(bar_graph_data_recent_can_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1, tooltip = tooltip_text, data_id = Province #<< )) + geom_col_interactive(color = “black”, fill=“#0072B2”, size = 0.5) + #<< theme_minimal() + theme(axis.text=element_text(size = 6)) + #<< labs(title = “Dose1 2022-03-23”) + ylab(“% Vaccinated”) + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + # scale_y_discrete(guide = guide_axis(angle = 90)) + # if using PercentVaccinatedDose1_percent as axis coord_flip()
girafe(ggobj = latest_vax_graph_dose1, width_svg = 5, height_svg = 4) ```
{=html} <div id="htmlwidget-64c55d289b4252ecfd73" style="width:672px;height:480px;" class="girafe html-widget"></div> <script type="application/json" data-for="htmlwidget-64c55d289b4252ecfd73">{"x":{"html":"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15' viewBox='0 0 360.00 288.00'>\n <g>\n <defs>\n <clipPath id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_1'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <rect x='0.00' y='0.00' width='360.00' height='288.00' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_1' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_1)' fill='#FFFFFF' fill-opacity='1' stroke='#FFFFFF' stroke-opacity='1' stroke-width='0.75' stroke-linejoin='round' stroke-linecap='round'/>\n <defs>\n <clipPath id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_2'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <defs>\n <clipPath id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3'>\n <rect x='123.82' y='23.35' width='230.70' height='235.55'/>\n <\/clipPath>\n <\/defs>\n <polyline points='160.52,258.90 160.52,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_2' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='212.95,258.90 212.95,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_3' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='265.39,258.90 265.39,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_4' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='317.82,258.90 317.82,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_5' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,246.28 354.52,246.28' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_6' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,225.25 354.52,225.25' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_7' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,204.21 354.52,204.21' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_8' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,183.18 354.52,183.18' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_9' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,162.15 354.52,162.15' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_10' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,141.12 354.52,141.12' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_11' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,120.09 354.52,120.09' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_12' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,99.06 354.52,99.06' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_13' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,78.03 354.52,78.03' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_14' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,57.00 354.52,57.00' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_15' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,35.97 354.52,35.97' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_16' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='134.31,258.90 134.31,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_17' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='186.74,258.90 186.74,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_18' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='239.17,258.90 239.17,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_19' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='291.60,258.90 291.60,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_20' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='344.03,258.90 344.03,23.35' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_21' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <rect x='134.31' y='236.81' width='168.04' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_22' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ALBERTA' title='ALBERTA&amp;lt;br&amp;gt;80.12%'/>\n <rect x='134.31' y='89.59' width='179.46' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_23' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='BRITISH COLUMBIA' title='BRITISH COLUMBIA&amp;lt;br&amp;gt;85.57%'/>\n <rect x='134.31' y='194.75' width='175.49' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_24' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='MANITOBA' title='MANITOBA&amp;lt;br&amp;gt;83.67%'/>\n <rect x='134.31' y='68.56' width='184.16' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_25' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEW BRUNSWICK' title='NEW BRUNSWICK&amp;lt;br&amp;gt;87.81%'/>\n <rect x='134.31' y='26.50' width='200.28' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_26' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEWFOUNDLAND AND LABRADOR' title='NEWFOUNDLAND AND LABRADOR&amp;lt;br&amp;gt;95.50%'/>\n <rect x='134.31' y='47.53' width='185.39' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_27' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NOVA SCOTIA' title='NOVA SCOTIA&amp;lt;br&amp;gt;88.40%'/>\n <rect x='134.31' y='173.72' width='176.20' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_28' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NUNAVUT' title='NUNAVUT&amp;lt;br&amp;gt;84.01%'/>\n <rect x='134.31' y='152.69' width='176.99' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_29' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ONTARIO' title='ONTARIO&amp;lt;br&amp;gt;84.39%'/>\n <rect x='134.31' y='131.66' width='177.33' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_30' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='QUEBEC' title='QUEBEC&amp;lt;br&amp;gt;84.55%'/>\n <rect x='134.31' y='215.78' width='171.98' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_31' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='SASKATCHEWAN' title='SASKATCHEWAN&amp;lt;br&amp;gt;82.00%'/>\n <rect x='134.31' y='110.63' width='177.67' height='18.93' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_32' clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='YUKON' title='YUKON&amp;lt;br&amp;gt;84.72%'/>\n <defs>\n <clipPath id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='91.54' y='248.43' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_33' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ALBERTA<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='68.55' y='227.40' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_34' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>SASKATCHEWAN<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='87.55' y='206.37' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_35' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>MANITOBA<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='89.89' y='185.34' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_36' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NUNAVUT<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='91.55' y='164.30' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_37' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ONTARIO<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='93.55' y='143.27' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_38' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>QUEBEC<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='97.55' y='122.24' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_39' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>YUKON<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='62.21' y='101.21' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_40' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>BRITISH COLUMBIA<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='66.55' y='80.18' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_41' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEW BRUNSWICK<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='77.88' y='59.15' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_42' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NOVA SCOTIA<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='18.54' y='38.12' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_43' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEWFOUNDLAND AND LABRADOR<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='129.97' y='268.13' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_44' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>0%<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='180.73' y='268.13' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_45' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>25%<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='233.17' y='268.13' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_46' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>50%<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='285.60' y='268.13' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_47' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>75%<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='336.36' y='268.13' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_48' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>100%<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='205.54' y='280.09' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_49' font-size='8.25pt' font-family='Helvetica'>% Vaccinated<\/text>\n <\/g>\n <g clip-path='url(#svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_cl_4)'>\n <text x='123.82' y='14.95' id='svg_9e4a6334-1090-43e8-b62a-25e21fd15f15_el_50' font-size='9.90pt' font-family='Helvetica'>Dose1 2022-03-23<\/text>\n <\/g>\n <\/g>\n<\/svg>","js":null,"uid":"svg_9e4a6334-1090-43e8-b62a-25e21fd15f15","ratio":1.25,"settings":{"tooltip":{"css":".tooltip_SVGID_ { padding:5px;background:black;color:white;border-radius:2px 2px 2px 2px ; position:absolute;pointer-events:none;z-index:999;}\n","offx":10,"offy":0,"use_cursor_pos":true,"opacity":0.9,"usefill":false,"usestroke":false,"delay":{"over":200,"out":500}},"hover":{"css":".hover_SVGID_ { fill:orange;stroke:gray; }\n","reactive":false},"hoverkey":{"css":".hover_key_SVGID_ { stroke:red; }\n","reactive":false},"hovertheme":{"css":".hover_theme_SVGID_ { fill:green; }\n","reactive":false},"hoverinv":{"css":""},"zoom":{"min":1,"max":1},"capture":{"css":".selected_SVGID_ { fill:red;stroke:gray; }\n","type":"multiple","only_shiny":true,"selected":[]},"capturekey":{"css":".selected_key_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"capturetheme":{"css":".selected_theme_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"toolbar":{"position":"topright","saveaspng":true,"pngname":"diagram"},"sizing":{"rescale":true,"width":1}}},"evals":[],"jsHooks":[]}</script>
# Link multiple graphs dose 1
## create data frame early dose1
r bar_graph_data_early_dose1 <- all_data_can_pop %>% filter(Date == "2021-06-17", !(Province %in% not_provinces)) %>% arrange() %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) ) %>% select(Province, PercentVaccinatedDose1, PercentVaccinatedDose1_percent, tooltip_text)
# Create a tooltip column in R data early
r bar_graph_data_early_dose1 <- bar_graph_data_early_dose1 %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) )
## create ggplot from data frame dose1
```r early_vax_graph_dose1 <- ggplot(bar_graph_data_early_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1, tooltip = tooltip_text, data_id = Province)) + geom_col_interactive(color = “black”, fill=“#0072B2”, size = 0.5) + theme_minimal() + theme(axis.text=element_text(size = 6)) + labs(title = “Dose1 2021-06-17”) + ylab(“% Vaccinated”) + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + # scale_y_discrete(guide = guide_axis(angle = 90)) + coord_flip()
girafe(ggobj = early_vax_graph_dose1, width_svg = 5, height_svg = 4) ```
{=html} <div id="htmlwidget-6607c0864f61ede5470f" style="width:672px;height:480px;" class="girafe html-widget"></div> <script type="application/json" data-for="htmlwidget-6607c0864f61ede5470f">{"x":{"html":"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8' viewBox='0 0 360.00 288.00'>\n <g>\n <defs>\n <clipPath id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_1'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <rect x='0.00' y='0.00' width='360.00' height='288.00' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_1' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_1)' fill='#FFFFFF' fill-opacity='1' stroke='#FFFFFF' stroke-opacity='1' stroke-width='0.75' stroke-linejoin='round' stroke-linecap='round'/>\n <defs>\n <clipPath id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_2'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <defs>\n <clipPath id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3'>\n <rect x='123.82' y='23.35' width='230.70' height='235.55'/>\n <\/clipPath>\n <\/defs>\n <polyline points='160.52,258.90 160.52,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_2' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='212.95,258.90 212.95,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_3' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='265.39,258.90 265.39,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_4' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='317.82,258.90 317.82,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_5' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,246.28 354.52,246.28' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_6' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,225.25 354.52,225.25' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_7' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,204.21 354.52,204.21' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_8' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,183.18 354.52,183.18' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_9' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,162.15 354.52,162.15' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_10' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,141.12 354.52,141.12' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_11' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,120.09 354.52,120.09' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_12' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,99.06 354.52,99.06' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_13' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,78.03 354.52,78.03' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_14' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,57.00 354.52,57.00' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_15' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,35.97 354.52,35.97' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_16' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='134.31,258.90 134.31,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_17' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='186.74,258.90 186.74,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_18' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='239.17,258.90 239.17,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_19' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='291.60,258.90 291.60,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_20' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='344.03,258.90 344.03,23.35' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_21' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <rect x='134.31' y='194.75' width='124.73' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_22' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ALBERTA' title='ALBERTA&amp;lt;br&amp;gt;59.47%'/>\n <rect x='134.31' y='131.66' width='138.00' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_23' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='BRITISH COLUMBIA' title='BRITISH COLUMBIA&amp;lt;br&amp;gt;65.80%'/>\n <rect x='134.31' y='173.72' width='127.20' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_24' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='MANITOBA' title='MANITOBA&amp;lt;br&amp;gt;60.65%'/>\n <rect x='134.31' y='110.63' width='138.53' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_25' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEW BRUNSWICK' title='NEW BRUNSWICK&amp;lt;br&amp;gt;66.05%'/>\n <rect x='134.31' y='47.53' width='143.85' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_26' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEWFOUNDLAND AND LABRADOR' title='NEWFOUNDLAND AND LABRADOR&amp;lt;br&amp;gt;68.59%'/>\n <rect x='134.31' y='89.59' width='140.42' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_27' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NOVA SCOTIA' title='NOVA SCOTIA&amp;lt;br&amp;gt;66.95%'/>\n <rect x='134.31' y='236.81' width='95.49' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_28' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NUNAVUT' title='NUNAVUT&amp;lt;br&amp;gt;45.53%'/>\n <rect x='134.31' y='152.69' width='134.60' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_29' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ONTARIO' title='ONTARIO&amp;lt;br&amp;gt;64.18%'/>\n <rect x='134.31' y='68.56' width='143.15' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_30' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='QUEBEC' title='QUEBEC&amp;lt;br&amp;gt;68.26%'/>\n <rect x='134.31' y='215.78' width='123.96' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_31' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='SASKATCHEWAN' title='SASKATCHEWAN&amp;lt;br&amp;gt;59.11%'/>\n <rect x='134.31' y='26.50' width='146.70' height='18.93' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_32' clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='YUKON' title='YUKON&amp;lt;br&amp;gt;69.95%'/>\n <defs>\n <clipPath id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='89.89' y='248.43' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_33' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NUNAVUT<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='68.55' y='227.40' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_34' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>SASKATCHEWAN<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='91.54' y='206.37' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_35' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ALBERTA<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='87.55' y='185.34' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_36' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>MANITOBA<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='91.55' y='164.30' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_37' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ONTARIO<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='62.21' y='143.27' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_38' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>BRITISH COLUMBIA<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='66.55' y='122.24' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_39' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEW BRUNSWICK<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='77.88' y='101.21' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_40' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NOVA SCOTIA<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='93.55' y='80.18' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_41' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>QUEBEC<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='18.54' y='59.15' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_42' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEWFOUNDLAND AND LABRADOR<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='97.55' y='38.12' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_43' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>YUKON<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='129.97' y='268.13' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_44' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>0%<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='180.73' y='268.13' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_45' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>25%<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='233.17' y='268.13' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_46' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>50%<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='285.60' y='268.13' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_47' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>75%<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='336.36' y='268.13' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_48' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>100%<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='205.54' y='280.09' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_49' font-size='8.25pt' font-family='Helvetica'>% Vaccinated<\/text>\n <\/g>\n <g clip-path='url(#svg_b2d1ef29-e65b-482c-9f23-524756abfde8_cl_4)'>\n <text x='123.82' y='14.95' id='svg_b2d1ef29-e65b-482c-9f23-524756abfde8_el_50' font-size='9.90pt' font-family='Helvetica'>Dose1 2021-06-17<\/text>\n <\/g>\n <\/g>\n<\/svg>","js":null,"uid":"svg_b2d1ef29-e65b-482c-9f23-524756abfde8","ratio":1.25,"settings":{"tooltip":{"css":".tooltip_SVGID_ { padding:5px;background:black;color:white;border-radius:2px 2px 2px 2px ; position:absolute;pointer-events:none;z-index:999;}\n","offx":10,"offy":0,"use_cursor_pos":true,"opacity":0.9,"usefill":false,"usestroke":false,"delay":{"over":200,"out":500}},"hover":{"css":".hover_SVGID_ { fill:orange;stroke:gray; }\n","reactive":false},"hoverkey":{"css":".hover_key_SVGID_ { stroke:red; }\n","reactive":false},"hovertheme":{"css":".hover_theme_SVGID_ { fill:green; }\n","reactive":false},"hoverinv":{"css":""},"zoom":{"min":1,"max":1},"capture":{"css":".selected_SVGID_ { fill:red;stroke:gray; }\n","type":"multiple","only_shiny":true,"selected":[]},"capturekey":{"css":".selected_key_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"capturetheme":{"css":".selected_theme_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"toolbar":{"position":"topright","saveaspng":true,"pngname":"diagram"},"sizing":{"rescale":true,"width":1}}},"evals":[],"jsHooks":[]}</script>

11 Dose 2

11.1 filter out non-provinces dose2

bar_graph_data_recent_can_dose2 <- all_data_can_pop %>%  
  filter(Date == max(Date), !(Province %in% not_provinces)) %>%  
  select(Province, PercentVaccinatedDose2, PercentVaccinatedDose2_percent)

11.2 Create bar graph % Dose 2

#str(all_data_can_pop)
bar_graph_dose2 <- ggplot(bar_graph_data_recent_can_dose2, 
                aes(x = reorder(Province, PercentVaccinatedDose2), 
                    y = PercentVaccinatedDose2)) +
  geom_col(color = "black", fill="#0072B2", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 8)) +
  labs(title = "Dose2 2022-03-23",
       subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
       ) +
   ylab("% Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
#   scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  coord_flip()

11.3 View bar_graph-%-dose2

#bar_graph_dose2

11.4 Create a tooltip column in R

bar_graph_data_recent_can_dose2 <- bar_graph_data_recent_can_dose2 %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", 
                   PercentVaccinatedDose2_percent)
  )

11.5 Make the bar chart interactive with ggiraph

latest_vax_graph_dose2 <- ggplot(bar_graph_data_recent_can_dose2, 
                aes(x = reorder(Province, PercentVaccinatedDose2), 
                    y = PercentVaccinatedDose2,
                    tooltip = tooltip_text, data_id = Province #<<
                    )) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +  #<<
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +  #<<
  labs(title = "Dose2 2022-03-23") +
   ylab("% Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
#  scale_y_discrete(guide = guide_axis(angle = 90)) +
  coord_flip()

girafe(ggobj = latest_vax_graph_dose2, width_svg = 5, height_svg = 4)

11.6 create data frame early dose2

bar_graph_data_early_dose2 <- all_data_can_pop %>%
  filter(Date == "2021-06-17", !(Province %in% not_provinces)) %>%
  arrange() %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose2_percent)
  ) %>%
  select(Province, PercentVaccinatedDose2, PercentVaccinatedDose2_percent, tooltip_text)

11.7 Create a tooltip column in R data early

bar_graph_data_early_dose2 <- bar_graph_data_early_dose2 %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", 
                   PercentVaccinatedDose2_percent)
  )

11.8 create ggplot from data frame dose2

early_vax_graph_dose2 <- ggplot(bar_graph_data_early_dose2, 
                                aes(x = reorder(Province, PercentVaccinatedDose2), 
                                    y = PercentVaccinatedDose2, 
                                    tooltip = tooltip_text, data_id = Province)) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +
  labs(title = "Dose2 2021-06-17") +
  ylab("% Vaccinated") +
  xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  # scale_y_discrete(guide = guide_axis(angle = 90)) +
  coord_flip()

girafe(ggobj = early_vax_graph_dose2, width_svg = 5, height_svg = 4)

12 Booster

13 Booster

13.1 filter out non-provinces Booster

bar_graph_data_recent_can_Booster <- all_data_can_pop %>%  
  filter(Date == max(Date), !(Province %in% not_provinces)) %>%  
  select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent)
#   select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent)

13.2 Create bar graph % Booster

note: Newfoundland has a na value, which plots wrong
https://stackoverflow.com/questions/17216358/eliminating-nas-from-a-ggplot

#str(all_data_can_pop)
bar_graph_Booster <- ggplot(bar_graph_data_recent_can_Booster, 
                aes(x = reorder(Province, PercentVaccinatedBooster), 
                    y = PercentVaccinatedBooster)) +
  geom_col(color = "black", fill="#0072B2", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 8)) +
  labs(title = "Booster 2022-03-23") +
   ylab("% Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  coord_flip()

13.3 View bar_graph-%-Booster

#bar_graph_Booster

13.4 Create a tooltip column in R

bar_graph_data_recent_can_Booster <- bar_graph_data_recent_can_Booster %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", 
                   PercentVaccinatedBooster_percent)
  )

13.5 Make the bar chart interactive with ggiraph

latest_vax_graph_Booster <- ggplot(bar_graph_data_recent_can_Booster, 
                aes(x = reorder(Province, PercentVaccinatedBooster), 
                    y = PercentVaccinatedBooster,
                    tooltip = tooltip_text, data_id = Province #<<
                    )) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +  #<<
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +  #<<
  labs(title = "Booster 2022-03-23") +
   ylab("% Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  # scale_y_discrete(guide = guide_axis(angle = 90)) +
  coord_flip()

girafe(ggobj = latest_vax_graph_Booster, width_svg = 5, height_svg = 4)
## Warning: Removed 1 rows containing missing values (position_stack).

13.6 create data frame early Booster

bar_graph_data_early_Booster <- all_data_can_pop %>%
  filter(Date == "2021-12-20", !(Province %in% not_provinces)) %>%
  arrange() %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedBooster_percent)
  ) %>%
  select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent, tooltip_text)

13.7 Create a tooltip column in R data early

bar_graph_data_early_Booster <- bar_graph_data_early_Booster %>%
  mutate(
    tooltip_text = paste0(toupper(Province), "\n", 
                   PercentVaccinatedBooster_percent)
  )

13.8 create ggplot from data frame Booster

early_vax_graph_Booster <- ggplot(bar_graph_data_early_Booster, 
                                aes(x = reorder(Province, PercentVaccinatedBooster), 
                                    y = PercentVaccinatedBooster, 
                                    tooltip = tooltip_text, data_id = Province)) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +
  labs(title = "Booster 2021-12-20") +
  ylab("% Vaccinated") +
  xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  # scale_y_discrete(guide = guide_axis(angle = 90)) +
  coord_flip()

girafe(ggobj = early_vax_graph_Booster, width_svg = 5, height_svg = 4)

14 Link multiple graphs with ggiraph -%-dose1

girafe(code = print(early_vax_graph_dose1 + latest_vax_graph_dose1 + early_vax_graph_dose2 + latest_vax_graph_dose2 + early_vax_graph_Booster + latest_vax_graph_Booster), 
       width_svg = 12, height_svg = 8) %>% 
  girafe_options(opts_hover(css = "fill:#e1be6a;"))
## Warning: Removed 1 rows containing missing values (position_stack).

15 ===================================

17 ===================================

18 Need to get Canada map for this

see canmap.Rmd

18.1 read geojson from Canada shapefile >> download into data folder

https://github.com/kjhealy/canmap

canada_cd <- st_read("data/canada_cd_sim.geojson", quiet = TRUE)

canada_cd
## Simple feature collection with 293 features and 6 fields
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: -141.0181 ymin: 41.7297 xmax: -52.6194 ymax: 83.1355
## Geodetic CRS:  NAD83
## First 10 features:
##    CDUID          CDNAME CDTYPE PRUID                                  PRNAME
## 1   4609 Division No.  9    CDR    46                                Manitoba
## 2   5901   East Kootenay     RD    59 British Columbia / Colombie-Britannique
## 3   5933 Thompson-Nicola     RD    59 British Columbia / Colombie-Britannique
## 4   4816 Division No. 16    CDR    48                                 Alberta
## 5   5919 Cowichan Valley     RD    59 British Columbia / Colombie-Britannique
## 6   4621 Division No. 21    CDR    46                                Manitoba
## 7   4608 Division No.  8    CDR    46                                Manitoba
## 8   4811 Division No. 11    CDR    48                                 Alberta
## 9   4802 Division No.  2    CDR    48                                 Alberta
## 10  5951 Bulkley-Nechako     RD    59 British Columbia / Colombie-Britannique
##    rmapshaperid                       geometry
## 1             0 MULTIPOLYGON (((-97.9474 50...
## 2             1 MULTIPOLYGON (((-114.573 49...
## 3             2 MULTIPOLYGON (((-120.1425 5...
## 4             3 MULTIPOLYGON (((-110 60, -1...
## 5             4 MULTIPOLYGON (((-123.658 48...
## 6             5 MULTIPOLYGON (((-99.0172 55...
## 7             6 MULTIPOLYGON (((-98.6436 50...
## 8             7 MULTIPOLYGON (((-112.8438 5...
## 9             8 MULTIPOLYGON (((-111.3881 5...
## 10            9 MULTIPOLYGON (((-124.4407 5...

19 Map Theme

## Map theme
theme_map <- function(base_size=9, base_family="") {
    require(grid)
    theme_bw(base_size=base_size, base_family=base_family) %+replace%
        theme(axis.line=element_blank(),
              axis.text=element_blank(),
              axis.ticks=element_blank(),
              axis.title=element_blank(),
              axis.title.x = element_text(size = 8),
              panel.background=element_blank(),
              panel.border=element_blank(),
              panel.grid=element_blank(),
              panel.spacing=unit(0, "lines"),
              plot.background=element_blank(),
              legend.justification = c(0,0),
              legend.position = c(0,0), 
              plot.title = element_text(face = "bold", colour = "black", size = 10),
              plot.subtitle = element_text(face = "italic", colour = "black", size = 6, hjust = 0.5, vjust = 1),
              plot.caption = element_text(hjust = 0.1, face = "italic", size = 6, vjust = 1)
              )
}

theme_set(theme_map())
## Loading required package: grid

20 Data

20.1 Create directory for figures

20.2 Transform coordinates

Transform the coordinates to a Lambert Conformal Conic Projection.
See https://www.statcan.gc.ca/pub/92-195-x/2011001/other-autre/mapproj-projcarte/m-c-eng.htm

canada_cd <- st_transform(canada_cd, crs = "+proj=lcc +lat_1=49 +lat_2=77 +lon_0=-91.52 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs")

canada_cd
## Simple feature collection with 293 features and 6 fields
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: -2529065 ymin: 5816874 xmax: 2793734 ymax: 10396190
## CRS:           +proj=lcc +lat_1=49 +lat_2=77 +lon_0=-91.52 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs
## First 10 features:
##    CDUID          CDNAME CDTYPE PRUID                                  PRNAME
## 1   4609 Division No.  9    CDR    46                                Manitoba
## 2   5901   East Kootenay     RD    59 British Columbia / Colombie-Britannique
## 3   5933 Thompson-Nicola     RD    59 British Columbia / Colombie-Britannique
## 4   4816 Division No. 16    CDR    48                                 Alberta
## 5   5919 Cowichan Valley     RD    59 British Columbia / Colombie-Britannique
## 6   4621 Division No. 21    CDR    46                                Manitoba
## 7   4608 Division No.  8    CDR    46                                Manitoba
## 8   4811 Division No. 11    CDR    48                                 Alberta
## 9   4802 Division No.  2    CDR    48                                 Alberta
## 10  5951 Bulkley-Nechako     RD    59 British Columbia / Colombie-Britannique
##    rmapshaperid                       geometry
## 1             0 MULTIPOLYGON (((-457449.9 6...
## 2             1 MULTIPOLYGON (((-1628202 69...
## 3             2 MULTIPOLYGON (((-1838098 74...
## 4             3 MULTIPOLYGON (((-988280.5 7...
## 5             4 MULTIPOLYGON (((-2253700 71...
## 6             5 MULTIPOLYGON (((-461578.4 7...
## 7             6 MULTIPOLYGON (((-500377.6 6...
## 8             7 MULTIPOLYGON (((-1350599 73...
## 9             8 MULTIPOLYGON (((-1372235 69...
## 10            9 MULTIPOLYGON (((-1921887 78...

20.3 Make vector map fill

Make a vector of repeated colors—just to fill in the map, for decoration only “as I don’t have any Canadian data to merge in at present”.

map_colors <-  RColorBrewer::brewer.pal(8, "Pastel1")
map_colors <- rep(map_colors, 37)

20.4 Draw map in ggplot

## Draw the map
p <- ggplot(data = canada_cd, 
            mapping = aes(fill = PRUID))
p_out <- p + geom_sf(color = "gray80", 
                    size = 0.1) + 
  scale_fill_manual(values = map_colors) + 
  guides(fill = FALSE) + 
  theme_map() + 
  theme(panel.grid.major = element_line(color = "white"),
        legend.key = element_rect(color = "gray40", size = 0.1))
## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
ggsave("figures/canada.pdf", p_out, height = 12, width = 15)

p_out

20.5 rename column names

names(canada_cd)[5] <- "Province"

20.6 Convert population data.frame to all capitals to match all_data_can

canada_cd$Province = toupper(canada_cd$Province)
#canada_cd$Province
pop_data_can$Province
##  [1] "CANADA"                    "NEWFOUNDLAND AND LABRADOR"
##  [3] "PEI"                       "NOVA SCOTIA"              
##  [5] "NEW BRUNSWICK"             "QUEBEC"                   
##  [7] "ONTARIO"                   "MANITOBA"                 
##  [9] "SASKATCHEWAN"              "ALBERTA"                  
## [11] "BRITISH COLUMBIA"          "YUKON"                    
## [13] "NWT"                       "NUNAVUT"

20.7 rename row values

canada_cd$Province[canada_cd$Province=="PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"] <- "PEI"
canada_cd$Province[canada_cd$Province=="NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"] <- "NWT"
canada_cd$Province[canada_cd$Province=="NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"] <- "NEWFOUNDLAND AND LABRADOR"
canada_cd$Province[canada_cd$Province=="BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"] <- "BRITISH COLUMBIA"
canada_cd$Province[canada_cd$Province=="QUEBEC / QUÉBEC"] <- "QUEBEC"
canada_cd$Province[canada_cd$Province=="NOVA SCOTIA / NOUVELLE-ÉCOSSE"] <- "NOVA SCOTIA"
canada_cd$Province[canada_cd$Province=="NEW BRUNSWICK / NOUVEAU-BRUNSWICK"] <- "NEW BRUNSWICK"
# canada_cd$Province
class(canada_cd)
## [1] "sf"         "data.frame"
str(canada_cd)
## Classes 'sf' and 'data.frame':   293 obs. of  7 variables:
##  $ CDUID       : chr  "4609" "5901" "5933" "4816" ...
##  $ CDNAME      : chr  "Division No.  9" "East Kootenay" "Thompson-Nicola" "Division No. 16" ...
##  $ CDTYPE      : chr  "CDR" "RD" "RD" "CDR" ...
##  $ PRUID       : chr  "46" "59" "59" "48" ...
##  $ Province    : chr  "MANITOBA" "BRITISH COLUMBIA" "BRITISH COLUMBIA" "ALBERTA" ...
##  $ rmapshaperid: int  0 1 2 3 4 5 6 7 8 9 ...
##  $ geometry    :sfc_MULTIPOLYGON of length 293; first list element: List of 1
##   ..$ :List of 1
##   .. ..$ : num [1:59, 1:2] -457450 -458022 -458301 -457720 -457562 ...
##   ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
##  - attr(*, "sf_column")= chr "geometry"
##  - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA
##   ..- attr(*, "names")= chr [1:6] "CDUID" "CDNAME" "CDTYPE" "PRUID" ...

21 Create Map

p_can <- ggplot(data = canada_cd, 
            mapping = aes(fill = PRUID))
p_can_out <- p_can + geom_sf(color = "gray80", 
                    size = 0.1) + 
  scale_fill_manual(values = map_colors) + 
  guides(fill = FALSE) + 
      labs(title = "Canada COVID % Vaccination 2021-2022",
           subtitle = "click for interactive map/chart (Data:resources-covid19canada.hub.arcgis.com)") +
  theme_map() + 
  theme(panel.grid.major = element_line(color = "white"),
        legend.key = element_rect(color = "gray40", size = 0.1))
## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#ggsave("figures/canada.pdf", p_can_out, height = 12, width = 15)

p_can_out

23 HTML Widgets

23.1 HTML Widget for one graph and map

my_widget <- girafe(ggobj = prov_map + latest_vax_graph, 
                     width_svg = 10, height_svg = 5) %>%
   girafe_options(opts_hover(css = "fill:#e1be6a;"))

 htmlwidgets::saveWidget(my_widget, "my_widget_page.html", 
                         selfcontained = TRUE)

23.2 HTML Widget for multiple graph and map

girafe(code = print(early_vax_graph_dose1 + latest_vax_graph_dose1 + early_vax_graph_dose2 + latest_vax_graph_dose2 + early_vax_graph_Booster + latest_vax_graph_Booster), 
       width_svg = 10, height_svg = 5) %>% 
  girafe_options(opts_hover(css = "fill:#e1be6a;"))
## Warning: Removed 1 rows containing missing values (position_stack).

23.3 —

24 ===================================

25 Functions

26 ===================================

27 Functions for filtering non-province and creating df for specific date

27.1 Dose1 TEST

Message: Note: Using an external vector in selections is ambiguous. (instead of select(Province, x, y)) ℹ Use all_of(x) instead of x to silence this message.
ℹ See https://tidyselect.r-lib.org/reference/faq-external-vector.html

dose_TEST <- function(Date, x, y){
  all_data_can_pop %>%  
  filter(Date == max(Date), !(Province %in% not_provinces)) %>%  
  select(Province, all_of(x), all_of(y))
}

27.1.1 TEST function >>> WORKS!!

27.2 Dose1 function test

… instead of having a separate function for each dose, specifying column To specify which columns and date fill in (date, “col1,”col2)

dose1_TEST <- dose_TEST(2021-06-17, "PercentVaccinatedDose1", "PercentVaccinatedDose1_percent")

27.2.1 Don’t need separate function for each dose / column e.g. Dose1

# dose1 <- function(Date){
#   dose1 <- all_data_can_pop %>%  
#   filter(Date == max(Date), !(Province %in% not_provinces)) %>%  
#   select(Province, PercentVaccinatedDose1, PercentVaccinatedDose1_percent)
# }
# e.g. try Data = 2021-06-17 (early dose1 and dose2); 2021-12-20 (for early booster)
dose1_TEST <- dose_TEST(2021-06-17, "PercentVaccinatedDose1", "PercentVaccinatedDose1_percent")
dose2_TEST <- dose_TEST(2021-06-17, "PercentVaccinatedDose2", "PercentVaccinatedDose2_percent")
booster_TEST <- dose_TEST(2021-12-20, "PercentVaccinatedBooster", "PercentVaccinatedBooster_percent")

# one function works same as 3 separate functions
# dose1_data_2021_06_17 <- dose1(2021-06-17)
# dose2_data_2021_06_17 <- dose2(2021-06-17)
# booster_data_2021_12_21 <- booster(2021-12-20)

27.3 Function Create a tooltip for % column values

tootip_per_col <- function(data, x){
    data %>%
      mutate(
        tooltip_text_TEST = paste0(toupper("Province"), "\n", 
                   x, "(%)") 
      )
    }

27.3.1 TEST function

need to fill in values tooltip_per_col(data, “data$columname”)
creates a tooltext column in data object, with % symbol

tootip_per_col(bar_graph_data_recent_can_dose1, bar_graph_data_recent_can_dose1$PercentVaccinatedDose1_percent)
##                     Province PercentVaccinatedDose1
## 1                    ALBERTA              0.8012141
## 2           BRITISH COLUMBIA              0.8556563
## 3                   MANITOBA              0.8367441
## 4              NEW BRUNSWICK              0.8780939
## 5  NEWFOUNDLAND AND LABRADOR              0.9549542
## 6                NOVA SCOTIA              0.8839625
## 7                    NUNAVUT              0.8401324
## 8                    ONTARIO              0.8439078
## 9                     QUEBEC              0.8455321
## 10              SASKATCHEWAN              0.8200094
## 11                     YUKON              0.8471516
##    PercentVaccinatedDose1_percent                      tooltip_text
## 1                          80.12%                   ALBERTA\n80.12%
## 2                          85.57%          BRITISH COLUMBIA\n85.57%
## 3                          83.67%                  MANITOBA\n83.67%
## 4                          87.81%             NEW BRUNSWICK\n87.81%
## 5                          95.50% NEWFOUNDLAND AND LABRADOR\n95.50%
## 6                          88.40%               NOVA SCOTIA\n88.40%
## 7                          84.01%                   NUNAVUT\n84.01%
## 8                          84.39%                   ONTARIO\n84.39%
## 9                          84.55%                    QUEBEC\n84.55%
## 10                         82.00%              SASKATCHEWAN\n82.00%
## 11                         84.72%                     YUKON\n84.72%
##      tooltip_text_TEST
## 1  PROVINCE\n80.12%(%)
## 2  PROVINCE\n85.57%(%)
## 3  PROVINCE\n83.67%(%)
## 4  PROVINCE\n87.81%(%)
## 5  PROVINCE\n95.50%(%)
## 6  PROVINCE\n88.40%(%)
## 7  PROVINCE\n84.01%(%)
## 8  PROVINCE\n84.39%(%)
## 9  PROVINCE\n84.55%(%)
## 10 PROVINCE\n82.00%(%)
## 11 PROVINCE\n84.72%(%)

27.4 Function Create a tooltip for # column values

tootip_num_col <- function(data, x, y){
    data %>%
      mutate(
        tooltip_text_TEST = paste0(toupper("Province"), "\n", 
                   x, "(#)") 
      )
    }

27.4.1 TEST function

need to fill in values tooltip_per_col(data, data$columnname)
creates a tooltext column in data objectm, with # symbol

tootip_num_col(bar_graph_data_recent_can, bar_graph_data_recent_can$TotalVaccinated)
##                     Province TotalVaccinated
## 1                    NUNAVUT           75394
## 2                      YUKON           90642
## 3       PRINCE EDWARD ISLAND          369073
## 4  NEWFOUNDLAND AND LABRADOR         1256652
## 5              NEW BRUNSWICK         1733241
## 6           BRITISH COLUMBIA        11398503
## 7                NOVA SCOTIA         2217196
## 8               SASKATCHEWAN         2380812
## 9                    ALBERTA         8528703
## 10                  MANITOBA         2847639
## 11                    QUEBEC        18505552
## 12                   ONTARIO        31882192
## 13     NORTHWEST TERRITORIES           99299
##                                tooltip_text     tooltip_text_TEST
## 1                       NUNAVUT\n75,394 (#)    PROVINCE\n75394(#)
## 2                         YUKON\n90,642 (#)    PROVINCE\n90642(#)
## 3         PRINCE EDWARD ISLAND\n369,073 (#)   PROVINCE\n369073(#)
## 4  NEWFOUNDLAND AND LABRADOR\n1,256,652 (#)  PROVINCE\n1256652(#)
## 5              NEW BRUNSWICK\n1,733,241 (#)  PROVINCE\n1733241(#)
## 6          BRITISH COLUMBIA\n11,398,503 (#) PROVINCE\n11398503(#)
## 7                NOVA SCOTIA\n2,217,196 (#)  PROVINCE\n2217196(#)
## 8               SASKATCHEWAN\n2,380,812 (#)  PROVINCE\n2380812(#)
## 9                    ALBERTA\n8,528,703 (#)  PROVINCE\n8528703(#)
## 10                  MANITOBA\n2,847,639 (#)  PROVINCE\n2847639(#)
## 11                   QUEBEC\n18,505,552 (#) PROVINCE\n18505552(#)
## 12                  ONTARIO\n31,882,192 (#) PROVINCE\n31882192(#)
## 13        NORTHWEST TERRITORIES\n99,299 (#)    PROVINCE\n99299(#)

27.4.2 TEST Function tooltip for interactive bar chart

latest_vax_graph_TEST <- ggplot(bar_graph_data_recent_can, 
                aes(x = reorder(Province, TotalVaccinated), 
                    y = TotalVaccinated,
                    tooltip = tooltip_text_TEST, data_id = Province #<<
                    )) +
  geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +  #<<
  theme_minimal() +
  theme(axis.text=element_text(size = 6)) +  #<<
  labs(title = "Fully Vaccinated March 23, 2022",
       subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
       ) +
   ylab("Total Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = comma_format()) +  
  coord_flip()

girafe(ggobj = latest_vax_graph, width_svg = 5, height_svg = 4)

28 ===

28.1 TEST Function Create a tooltip for comma-separated column values

  • this gives comma format, but I can’t seem to make a vunction to choose different columns to use
  • can at least use to choose which data to use, then manually change the column to use
tootip_com_col <- function(data){
    data %>%
      mutate(
        tooltip_text_TEST = paste0(toupper("Province"), "\n", 
                   scales::comma(TotalVaccinated, 1)) 
      )
    }

28.1.1 TEST function

need to fill in values tooltip_per_col(data, “columname”)
creates a tooltext column in data object, with % symbol

tootip_com_col(bar_graph_data_recent_can)
##                     Province TotalVaccinated
## 1                    NUNAVUT           75394
## 2                      YUKON           90642
## 3       PRINCE EDWARD ISLAND          369073
## 4  NEWFOUNDLAND AND LABRADOR         1256652
## 5              NEW BRUNSWICK         1733241
## 6           BRITISH COLUMBIA        11398503
## 7                NOVA SCOTIA         2217196
## 8               SASKATCHEWAN         2380812
## 9                    ALBERTA         8528703
## 10                  MANITOBA         2847639
## 11                    QUEBEC        18505552
## 12                   ONTARIO        31882192
## 13     NORTHWEST TERRITORIES           99299
##                                tooltip_text    tooltip_text_TEST
## 1                       NUNAVUT\n75,394 (#)     PROVINCE\n75,394
## 2                         YUKON\n90,642 (#)     PROVINCE\n90,642
## 3         PRINCE EDWARD ISLAND\n369,073 (#)    PROVINCE\n369,073
## 4  NEWFOUNDLAND AND LABRADOR\n1,256,652 (#)  PROVINCE\n1,256,652
## 5              NEW BRUNSWICK\n1,733,241 (#)  PROVINCE\n1,733,241
## 6          BRITISH COLUMBIA\n11,398,503 (#) PROVINCE\n11,398,503
## 7                NOVA SCOTIA\n2,217,196 (#)  PROVINCE\n2,217,196
## 8               SASKATCHEWAN\n2,380,812 (#)  PROVINCE\n2,380,812
## 9                    ALBERTA\n8,528,703 (#)  PROVINCE\n8,528,703
## 10                  MANITOBA\n2,847,639 (#)  PROVINCE\n2,847,639
## 11                   QUEBEC\n18,505,552 (#) PROVINCE\n18,505,552
## 12                  ONTARIO\n31,882,192 (#) PROVINCE\n31,882,192
## 13        NORTHWEST TERRITORIES\n99,299 (#)     PROVINCE\n99,299

29 ===

30 ===

31 TEST Function for ggplot

function works to grab data into ggplot_fun
??? can I add column ???

ggplot_fun <- function(data, x){
ggplot(data, 
                aes(x = reorder(Province, PercentVaccinatedDose2), 
                    y = PercentVaccinatedDose2)) +
  geom_col(color = "black", fill="#0072B2", size = 0.5) +
  theme_minimal() +
  theme(axis.text=element_text(size = 8)) +
  labs(title = "Dose1 2022-03-23") +
   ylab(" Vaccinated") +
   xlab("") +
  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
  coord_flip()
}

31.1 TEST ggplot function

fill in (data, col1, col2))

ggplot_fun(bar_graph_data_recent_can_dose2, PercentVaccinatedDose2_percent)

31.2 —

32 Things I’d Like To Do TO Make This Better …

  1. change bar colours?
  2. make a shiny app to choose which vaccine chart, and have larger map
  3. how to make map larger?
  4. make a function to avoid repeating code for different vaccine dose
    • done: >> tested both in a ggplot barchart
      • tootip
      • create data object with only Province (not not prov)
      • create data object, choosing only Date, and 2 columns !!